home *** CD-ROM | disk | FTP | other *** search
- # (decoded with TMPL 11972)
- { %filename% }
- { Created %date% %time% by AppMaker }
-
- Unit %UnitName%;
- Interface
-
- Uses
- %If MPW%
- {$Load ToolBox.dump}
- MemTypes,
- QuickDraw,
- OSIntf,
- ToolIntf,
- PackIntf,
- {$Load}
-
- %end if%
- %If Think%
- {$ifc undefined Think_Pascal}
- ListManager,
- {$endc}
- %end if%
- %UsesDialogs%
- Globals,
- ResourceDefs,
- DoScrap;
-
- {----------}
- Procedure Init%MenuName%;
- Procedure Do%MenuName% (itemNr: integer);
-
- {----------}
- Implementation
-
- %If MPW%
- {$D+}
- {$R+}
- {$OV+}
-
- %end if%
- %If MPW%
- {$S %unitname%}
-
- %end if%
- {----------}
- Procedure Init%MenuName%;
- Begin
- End; {Init%MenuName%}
-
- %DoMenuItems%
- {----------}
- Procedure Do%MenuName% {(itemNr: integer)};
- Begin
- case itemNr of
- %HandleMenuItems%
- end; {case}
- End; {Do%MenuName%}
-
- End. {%UnitName%}
-